home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
em7sui_1
/
em7sui~1.exe
/
ProdADrillDown4.wr_
/
ProdADrillDown4.wr
Wrap
Text File
|
1998-11-09
|
7KB
|
337 lines
#VRML V2.0 utf8
EXTERNPROTO GridGray [ exposedField SFFloat transparency ] "..\Appearances\MetalMaterials.wrl#color26"
EXTERNPROTO SurfaceColor [ exposedField SFFloat transparency ] "..\Appearances\SoftMaterials.wrl#color18"
EXTERNPROTO Red [ exposedField SFFloat transparency ] "..\Appearances\SummerMaterials.wrl#color2"
EXTERNPROTO Blue [ exposedField SFFloat transparency ] "..\Appearances\SummerMaterials.wrl#color19"
EXTERNPROTO em7_ChartGrid [
exposedField SFNode appearance
exposedField SFColor lineColor
field SFInt32 xDimension
field SFFloat xSpacing
field SFInt32 yDimension
field SFFloat ySpacing
field SFInt32 zDimension
field SFFloat zSpacing
field SFFloat thickness
eventIn SFInt32 set_xDimension
eventIn SFFloat set_xSpacing
eventIn SFInt32 set_yDimension
eventIn SFFloat set_ySpacing
eventIn SFInt32 set_zDimension
eventIn SFFloat set_zSpacing
eventIn SFFloat set_thickness
] "..\VR_GRAPH.wrl#em7_ChartGrid"
EXTERNPROTO em7_Legend [
field MFNode appearances
field MFString descriptions
field SFString keyStyle
field SFFloat textHeight
field SFFloat textGap
field SFColor textColor
eventIn MFNode set_appearances
eventIn MFString set_descriptions
] "..\VR_GRAPH.wrl#em7_Legend"
EXTERNPROTO em7_RoundedRibbonSeries [
exposedField SFNode appearance
field SFInt32 xDimension
field SFFloat xSpacing
field SFFloat thickness
field SFFloat depth
field MFFloat height
field SFFloat bevelRadius
field SFFloat creaseAngle
eventIn SFInt32 set_xDimension
eventIn SFFloat set_xSpacing
eventIn SFFloat set_thickness
eventIn SFFloat set_depth
eventIn MFFloat set_height
] "..\VR_GRAPH.wrl#em7_RoundedRibbonSeries"
EXTERNPROTO em7_RoundedColumnSeries [
field MFNode appearance
field SFInt32 xDimension
field SFFloat xSpacing
field SFFloat width
field SFFloat depth
field MFFloat height
field MFFloat floor
field SFFloat bevelRadius
field SFFloat creaseAngle
eventIn SFInt32 set_xDimension
eventIn SFFloat set_xSpacing
eventIn SFFloat set_width
eventIn SFFloat set_depth
eventIn MFFloat set_height
eventIn MFFloat set_floor
eventIn MFNode set_appearance
] "..\VR_GRAPH.wrl#em7_RoundedColumnSeries"
EXTERNPROTO em7_LookAt [
field SFVec3f viewerPos
field SFVec3f viewedPos
field SFBool enabled
eventIn SFVec3f set_viewerPos
eventIn SFVec3f set_viewedPos
eventIn SFBool set_enabled
eventOut SFRotation orientation_changed
] "..\VR_NAV.wrl#em7_LookAt"
EXTERNPROTO em7_TextList [
exposedField SFNode appearance
field MFString string
field SFFloat textHeight
field SFFloat textGap
field SFInt32 visibleCount
field SFInt32 topIndex
exposedField MFFloat length
exposedField SFFloat maxExtent
field SFString family
field SFString style
field MFString justify
field SFBool horizontal
field SFBool leftToRight
field SFBool topToBottom
field SFString language
eventIn MFString set_string
eventIn MFString addStrings
eventIn SFInt32 set_visibleCount
eventIn SFInt32 set_topIndex
eventOut MFString visibleText_changed
eventOut SFInt32 topIndex_changed
eventOut SFInt32 listRange_changed
] "..\VR_UI.wrl#em7_TextList"
EXTERNPROTO em7_PopupStrip [
field SFInt32 xDimension
field SFFloat xSpacing
field SFFloat radius
field SFFloat depth
field MFFloat height
field SFColor color
field SFFloat transparency
field SFString defaultPopupText
field SFFloat popupHeight
field SFString allignment
field MFString popupText
exposedField SFColor textColor
exposedField SFColor backgroundColor
exposedField SFColor borderColor
exposedField SFBool touchEnabled
eventIn MFString set_popupText
eventIn MFFloat set_height
eventOut SFInt32 mouseOverIndex
eventOut SFInt32 mouseClickedIndex
] "..\VR_GRAPH.wrl#em7_PopupStrip"
NavigationInfo {
headlight FALSE
}
Background {
skyColor [
0 0 0
0.4 0.4 0.6
1 1 1
]
skyAngle [2, 3]
}
# the viewpoint and the look at functionality
DEF VIEW Viewpoint {
position 13.5 14 20
}
DEF LOOKAT em7_LookAt {
viewerPos 13.5 14 20
viewedPos 7 2 0
}
# the chart casing
em7_ChartGrid {
appearance GridGray { }
lineColor 0.3 0.3 0.3
xDimension 5
xSpacing 3
yDimension 8
ySpacing 1
zDimension 2
zSpacing 4
thickness 0.15
}
# the columns
Transform {
translation 1 0 1.6
children [
em7_RoundedColumnSeries {
appearance Red { }
xDimension 4
xSpacing 3
width 0.4
depth 0.8
height [2.0435, 1.935, 1.993, 2.065 ]
}
]
}
Transform {
translation 1.6 0 1.6
children [
em7_RoundedColumnSeries {
appearance Blue { }
xDimension 4
xSpacing 3
width 0.4
depth 0.8
height [2.084, 1.946, 1.933, 3.965 ]
}
]
}
Transform {
translation 1.5 0 1.1
children [
em7_RoundedRibbonSeries {
appearance SurfaceColor { }
xDimension 4
xSpacing 3
depth 1
thickness 0.2
height [1.63, 1.578, 1.652, 1.574 ]
},
em7_PopupStrip {
xDimension 4
xSpacing 3
radius 0.5
depth 1.5
transparency 1
popupHeight 0.65
height [1.63, 1.578, 1.652, 1.574 ]
popupText ["223,799", "227,929", "221,626", "160,588"]
}
]
}
Anchor {
url "ProdAOverview.wrl"
description "Back to the overview"
children [
Transform {
translation 12 0.25 2
children [
Shape {
appearance Appearance {
material Material {
diffuseColor 1 1 0.4
}
}
geometry Cone {
bottomRadius 0.2
height 0.5
}
}
]
}
]
}
# custom lighting
DEF LIGHT1 PointLight {
location 55 30 13
intensity 0.6
ambientIntensity 0.5
}
DEF LIGHT2 PointLight {
location 13 20 55
intensity 0.5
ambientIntensity 0.5
}
DEF LIGHT3 PointLight {
location 0 0 60
intensity 0.4
ambientIntensity 0.5
}
Transform {
translation 10.9 0 4.25
rotation -2.02099 2.02099 2.021 2.094399
children [
em7_TextList {
string ["Feb 96 - Jul 96",
"Aug 96 - Jan 97",
"Feb 97 - Jul 97",
"Aug 97 - Jan 98"
]
visibleCount 4
textHeight 0.8
textGap 2.2
family "SANS"
justify ["END", "END"]
}
]
}
Transform {
translation 6 8 0
children [
Shape {
geometry Text {
string "Product A Details"
fontStyle FontStyle {
justify "MIDDLE"
family "SANS"
size 0.9
}
}
}
]
}
Transform {
translation 6 7.25 0
children [
Shape {
geometry Text {
string "(fourth quintile)"
fontStyle FontStyle {
justify "MIDDLE"
family "SANS"
size 0.6
}
}
}
]
}
Transform {
translation 13 1 0
children [
em7_Legend {
appearances [
Red {}
Blue {}
SurfaceColor {}
]
textHeight 0.6
textGap 0.4
descriptions ["Calls", "Samples", "Industry Average"]
}
]
}
ROUTE LOOKAT.orientation_changed TO VIEW.set_orientation